﻿Public Class TextData
    Public Structure NoteData
        Dim Title As String
        Dim Content As String
    End Structure
    Public ReadOnly _DataBook As New List(Of NoteData)
    Public LastSelectedIndex As Integer
    Public Sub Add(ByVal Title As String, ByVal Content As String)
        Dim tmpNote As New NoteData
        tmpNote.Title = Title
        tmpNote.Content = Content
        _DataBook.Add(tmpNote)
    End Sub

    Public Function ReleaseList() As List(Of NoteData)
        Return New List(Of NoteData)(_DataBook)
    End Function
End Class
